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DECUS Program Library Write-up 


DECUS NO. 8-537 


/TALKING EIGHTS 

/WRITTEN FOR THE P0P-8/E EQUIPED WITH A DP8E 
/FULL DUPLEX 
/SYNC CODE = 226 
/ 

/LOUISE GERHART 
/PDP- 8 PROGRAMMING 
/MAY 20. 1972 
/ 

/ 

/STARTING ADDRESS- 0400 
/ 

/THIS PROGRAM ENABLES THE USER TO SEND AND RECEIVE DATA OVER A 
/FULL DUPLEX LINE, THE PROGRAM ASSUMES THE LINE IS 
/INTERFACED TO THE PDP-8/E BY DIGITAL EQUIPMENT CORPORATIOtI ON'S 
/SYNCHROUNOUS INTERFACE DP8E 
/ 

/ 

/AFTrR The PROGRAM IS STARTED IT WAITS FOR AN INTERRUPT FROM EITHER 
/THE DPSE OR THE TELETYPE. WHEN AN INTERRUPT OCCURS THE DEVICE IS 
/SERVICED AND DATA IS EITHER TRANSMITTED OR RECEIVED 
/ 

/ 

/IF THE OPERATOR WISHES TO SEND A MeSSAGEi HE SHOULD TYPE THE MESSAGE 
/ON THE TELETYPE. THE PDP-8 WILL BUFFER THE COMPLETE MESSAGE AND WW£N 
/THE CHARACTER SLASH (/) IS TYPED THE ENTIRE MESSAGE WfLL BE TRANSMITTED 
/OVER THE DATAPHONE 
/ 

/ 

/WHEN. A cOMPLE t E MESSAGE (AN ENDING cHARA^eR OF A SLASH) HAS BEEN 

/received from the dpse. the program will ouTpUt it on 

/THE TELETYPE AS SOON AS THE KEYBOARD BECOMES INACTIVE'.'. THE KEYBOARD 
/BECOMES INACTIVE WHEN the OPERATOR IS NOT IN fHF PROCESS OF TYPING 
/A MESSAGE 
/ 

/ 

/the PROGRAM WILL BUFFER ONLY one COMPLETE INCOMING MESSAGE and ONLY ONE 
/COMPLETE OUTGOING MESSAGE. 

/ 

/ 

/INTERRUPTS ARE NOT TURNED ON UNTIL THE DAfA SET IS READY’, 

/ 

/ 

/PROGRAM WILL OPERATE ON HALF DUPLEX LINES IF THE DP8E IS 
/STRAPPED FOR HALF DUPLEX AND THE OPERATORS DO NOT 
/ATTEMPT TO SEND MESSAGES SIMULTANEOUSLY 
/ 

/ 

/ 

/ 

/TALKING EIGHTS 
/ 

/ 

SSCD=6400 /SKIP IF CHARACTER DECTECT 

SSRO=6402 /SKIP IF RECV OVERFLOW 





6403 

6404 
6 405 
6406 

6410 

6411 

6412 

6413 

6414 

6415 

6416 


7720 

7721 

7722 

7723 

7724 

7725 
7727 
7730 

0226 

2500 

0001 
0001 5100 


SSTO=6403 

/skip if transmit overflow 

SGRR=6404 

/RECV GO 

SGTT=6405 

/TRANSMIT GO 

SCSD=6406 

/CLEAR SYNC DECTECt 

SGGR=6410 

/SKIP ON RING FLAG 

SSCA=6411 

/SKIP ON CARRIER FLAG 

SLCC=6412 

/LOAD CONTROL 

SLFL=6413 

/LOAD FIELD 

SRS2=6414 

/READ STATUS REGISTER 2 

SRS1=6415 

/READ STATUS REGISTER 1 

SSBE=6416 

/ 

/ACCESS ADDRE! 

/SKIP ON BUS ERROR 

5SES 

TECHl=7720 

TECH2*7721 

TECH3=7722 

TECH4=7723 

RWCNT=7724 

/RECEIVE WORD COUNT 

PCA=7725 

/RECEIVE CURRENT ADDRESS 

TWCNT37727 

/TRANSMIT WORD COUNT 

TCA=7730 

/ 

SYNs226 

/TRANSMIT current AODRESS 

/EBCDIC SYNC CODE 

TQCHAR=2500 

/BUFFER SIZE . 


/ 

*1 


JMP inter 

/ 

/ 



0020 

»20 



0020 

0000 

AC * 

0 


0021 

0000 

LINK, 

0 


0022 

0000 

I TMP , 

0 


0023 

0000 

KTEMP, 

0 


0024 

0000 

TCNT, 

0 


0025 

0000 

KCNT, 

0 


0026 

0000 

CNT10, 

0 


0027 

0000 

CNTll, 

0 


0030 

0777 

TOPI. 

777 


0031 

3503 

T0P2, 

3477+4 


0032 

3000 

TTYACT, 

0 


0033 

0000 

ACT637, 

0 


0034 

1033 

KEYACT, 

TAD 

ACT637 

0035 

7700 


SMA CLA 


0036 

5577 


JMP I 

(KEY 

0037 

6032 


KCC 


0040 

5134 


JMP 

EXIT 


/ 


/INTERRUPT service 
/ 



0100 

#100 



0100 

3020 

INTER. 

DCA 

AC 

0101 

7010 


RAR 


0102 

3021 


DCA 

LINK 

0103 

6402 


SSRO 



/OUTGOING BUFFER AVAILABLE? 

/yes, fill from keTboaSd 

/NO, IGNORE CHARACTERS 


/SAVE AC 
/SAVE LINK 

/SKIP ON RECEIVE OVERFLOW 


2 



0104 

7410 


SKP 


0105 

5134 


JMP 

EXIT 

0106 

6410 


SGGR 


0107 

7410 


SKP 


0110 

5134 


JMP 

EXIT 

0111 

6403 


SSTO 


0112 

7410 


SKP 


0113 

5576 


JMP I 

(OUT 

0114 

6400 


SSCD 


0115 

7410 


SKP 


0116 

5575 


JMP I 

( IN637 

0117 

6031 


KSF 


0120 

7410 


SKP 


0121 

5034 


JMP 

keyact 

0122 

6041 


TSF 



7410 


SKP 


0124 

5574 


JMP I 

(Telei 

0125 

6416 


SSBE 


0126 

7410 


SKP 


0127 

7402 


HLT 


0130 

6411 


SSC A 


0131 

7410 


SKP 


0132 

5134 


JMP 

EXIT 

0133 

7402 


HLT 


0134 

7300 

EXIT, 

CLA CLL 


0135 

1021 


TAD 

LINK 

0136 

7004 


RAL 


0137 

1020 


TAD 

AC 

0140 

6001 


ION 


0141 

5400 


JMP I 

0 


0200 

/ 

»203 



0200 

6406 

I N 6 3 7 , 

SCSD 



1030 

/ 

TYPE . 

TAD 

TOPI 

0202 

3010 


DCA 

10 

0203 

1777 


TAD I 

(RW-CNT 

0204 

1376 


TAD 

(TOCHAR 

0205 

7041 


CIA 


0206 

3024 


DCA 

TCNT 

0207 

5315 


JMP 

TELE2 

0210 

1410 

HERE, 

TAD I 

10 

0211 

1375 


TAD 

(-SYN 

0212 

7450 


SNA 


0213 

5217 


JMP 

TELE 

0214 

1374 


TAD 

(Syn 

0215 

6046 


TLS 


0216 

5134 


JMP 

EXIT 

0217 

2024 

TELE, 

ISZ 

TCNT 

0220 

5210 


JMP 

HERE 

0221 

1373 


TAD 

(-TOCHAR 

0222 

3777 


DCA I 

(RWCNT 

0223 

1030 


TAD 

TOPI 

0224 

3772 


DCA I 

(RCA 


/IGNORE RECEIVE OVERFLOW 
/SKIP ON RING FLAG 

/IGNORE RING FL'AG 

/SKIP ON TRANSMIT overflow 


/SKIP ON CHARACTER DECtECT 


/SKIP ON KEYBOARD 


/SKIP ON PRlNtER 


/SKIP ON BUS ERROR 


/SKIP ON CARRIER tRANSlflON 


/OK TRYED ALL THE INTERRUPT 
/RESTORE LINK 
/RESTORE AC 


/CLEAR SYNC DECTECf 


/SET AyTO INDEX 10 

/DETERMINE THE NUMBER OF INCOMING 

/CHARACTERS 

/AND STORE HERE 

/GET CHARACTER 
/A SYNC? 

/YES, GET ANOTHER CHARACTER 
/NO 

/TYPE IT 

/RESTORE INTERRUPT 

/INCREMENT COUNTER 

/IF NOT 2ER0 

/RESET RECV WORD COUNf 


/RESET CURRENT ADDRESS 


3 




0225 

6404 


SGRR 


/RECEIVE GO 

0226 

6042 


TCF 


/CLEAR PRlNfER FLAG 

0227 

5134 


JMP 

EXIT 

/RESTORE INTERRUPT 

0230 

6036 

/ 

KEY, 

KRB 


/READ IN CHARACTER 

0231 

6046 


TLS 


/TYPE CHARACTER 

0232 

3023 


DCA 

ktemp 

/AND SAVE ft 

0233 

7040 


CMA 


/SET KEYBOiRD ACTIVE 

0234 

3032 


DCA 

ttyact 

0235 

1023 


TAD 

ktemp 

/GET CHARACTER 

0236 

1371 


TAD 


/A SLASH? 

0237 

7650 


SNA CLA 



0240 

5245 


JMP 

KEYDON 

/YES 

0241 

1023 


TAD 

KTEMP 

/GET CHARACTER 

0242 

3411 


DCA I 

11 

/AND SAVE ft IN BUFFER 

0243 

2027 


ISZ 

CNT11 

/INCREMENT COUNTER 

0244 

5134 

/ 

KEYOON, 

JMP 

EXIT 

/RESTORE INTERRUPT 

0245 

1023 

TAD 

ktemp 


0246 

3411 


DCA I 

11 

/STORE SLASH 

0247 

2027 


ISZ 

CNT11 

/INCREMENT COUNTER 

0250 

1370 


TAD 

(-4 

/ALLOW FOR SYNC CHARACTERS 

0251 

1031 


TAD 

T0P2 

/SET 

0252 

3767 


DCA I 

(TCA 

/TRANSMIT CURRENT ADDRESS 

0253 

1027 


TAD 

CNT11 

/AND SET 

0254 

7040 


CMA 


/AND SET WOR6 COUNT 

0255 

3766 


DCA I 

(TWCNT 

0256 

7040 


CMA 


/SET ACTIVE OUTGOING LINE 

0257 

3033 


DCA 

ACT637 

0260 

1365 


TAD 

(5400 

/SEND REQUEST To send 

0261 

6412 


SICC 



0262 

7200 


CLA 


/CLEAR TO SEND 

0263 

6414 


SRS2 


0264 

0364 


AND 

(0400 


0265 

7650 


SNA CLA 


/no, wait for Clear To send 

0266 

5263 


JMP 

.-3 

0267 

6405 


SGTT 


/transmit go 

0270 

5134 


JMP 

EXIT 


0271 

1363 

/ 

OUT, 

TAD 

(5000 

/CLEAR REQOESt TO SEND 

0272 

6412 


SLCC 



0273 

7200 


CLA 


/TRANSMIT OVERFLOW 

0274 

1031 


TAD 

T0P2 

0275 

3011 


DCA 

11 

/RESET BUFFER 

0276 

1362 


TAD 

(4 

/4 FOR THE SYNC CHARACTERS 

0277 

3027 


DCA 

CNT11 

0300 

3033 


DCA 

ACT637 

/SET BUFFER AVStljABLE 

0301 

5134 

/ 

JMP 

EXIT 

/RESTORE INTERRUPT 

0302 

1032 

/ 

TELEli 

TAD 

ttyact 

/KEYBOARD ACTIVE 

0303 

7700 


SMA CLA 



0304 

5217 


JMP 

TELE 

/SET KEYBOXRD INACTIVE 

0305 

3032 


DCA 

TTYACT 

0306 

6042 


TCF 


/CLEAR PRINTER FLAG 


4 



0307 

1023 


TAD 


KTEMP 

/WAS LAST CHARACTER READ A 

0310 

1361 


TAD 


(-215 

/CARRIAGE RETURN??* 

0311 

7640 


SEA 

CLA 



0312 

5315 


JMP 


TELE2 

/NO, PROCEED 

0313 

1360 


TAD 


(212 

/TYPE A LINE FEED 

0314 

5231 


JMP 


KEY + 1 

/AND STORE IT 

0315 

1024 

TELE2» 

TAD 


TCNT 

/any data received? 

0316 

7650 


SNA 

CLA 



0317 

5134 


JMP 


EXIT 

/NO 

0320 

1033 


TAD 


ACT637 

/BUFFER ACtlVE? 

0321 

7640 


SEA 

CLA 



0322 

5210 


JMP 


HERE 

/YES 

0323 

1027 


TAD 


CNT11 

/OUTGOING DAfA? 

0324 

1370 


TAD 


(-4 


JT 25 

7650 


SNA 

CLA 



W26 

5210 


JMP 


HERE 

/NO 

0327 

5134 


JMP 


EXIT 

/YES 

0360 

0212 

/ 





0361 

7563 






0362 

0004 






0363 

5000 






0364 

0400 






0365 

5400 






0366 

7727 






0367 

7730 






0370 

7774 






0371 

7521 






0372 

7725 






0373 

5300 






0374 

0226 






0375 

7552 






0376 

2500 






(§7 7 

7724 







0400 

#400 





0400 

7200 

/ 

BEGIN# 

CLA 




0401 

1030 


TAD 


TOPI 

/SET UP BUFFERS 

0402 

3010 


DCA 


10 


0403 

1031 


TAD 


T0P2 


0404 

3011 


DCA 


11 


0405 

1377 


TAD 


(4 


0406 

3027 


DCA 


CNT11 


0407 

3032 


DCA 


TTYACT 

/CLEAR SWITCHES 

0410 

3033 


DCA 


ACt637 


0 411 

7200 


CLA 




0412 

6413 


slfl 


/SET FIELD 

0413 

1376 


TAD 


(257 

/SET CHARACTER DEfECf 

0414 

3775 


DCA 

I 

(TECH1 


0415 

1376 


TAD 


(257 


0416 

3774 


DCA 

I 

(TECH2 


0417 

1376 


TAD 


(257 


0420 

3773 


DCA 

I 

(TECH3 


0421 

1376 


TAD 


(257 


0422 

3772 


DCA 

I 

(TECH4 
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0423 

1371 

0424 

3770 

0425 

1030 

0426 

3767 

0427 

6404 

0430 

1366 

0431 

6412 

0432 

7200 

0433 

6415 

0434 

0365 

0435 

7650 

0436 

5233 

0437 

6001 

0440 

5240 

0565 

0020 

0566 

5000 

0567 

7725 

0570 

7724 

0571 

5300 

0572 

7723 

0573 

7722 

0574 

7721 

0575 

7720 

0576 

0257 

0577 

0004 


3500 

3500 

0226 

3501 

0226 

3502 

0226 

3503 

0226 

0174 

0302 

0175 

0200 

0176 

0271 

0177 

0230 


TAD 

(-TOCHAR 

/SET RECV WORD COUNT 

DCA I 

(RWCNT 



TAD 

TOPI 

/SET RECV CURRENT 

ADDRESS 

DCA I 

(RCA 



SGRR 


/RECV GO 


TAD 

(5000 

/ENABLE INTERFACE 

Xnd set 

slcc 


/TERMINAL READY 


CLA 




SRS1 




AND 

(020 

/data set ready? 


SNA CLA 




JMP 

.-3 

/NO 


ION 


/YES 


JMP 

• 




*3500 

SYN 

SYN 

SYN 

SYN 

/ 

$ 


6 



0000 01200000 00000000 llllllll 

0100 llllllll llllllll llllllll 


llllllll 10000000 00000000 

llllllll 11000000 00000000 


00000000 

00000000 


0222 illtilll llllllll llllllll llllllll llllllll llllllll 

0302 illlllll llllllll llllllll 00000000 00000000 00000000 


ilium 

liiliiii 


0400 llllllll llllllll llllllll llllllll 10000000 00000000 00000000 

0520 00200000 00000000 00200000 0000B030 00000000 00000030 00000111 

0600 

0700 


1000 

1100 


1200 

1300 


1400 

1500 


1600 

1700 


2000 

2100 

2200 

230 ^ 

2420 

2500 

2600 

2700 


3200 

3100 

3200 

3300 

3402 00000000 33000033 00000000 00030003 00300000 00000000 00000000 

3520 11110000 00303003 20200000 00030000 00000000 30000000 00000000 

3622 

3722 


00000000 

00001111 

llllllll 

llllllll 

00000000 

liiiim 


30000000 

00000000 
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4000 

4100 



4200 

4300 

4400 

4500 

4600 

4700 


5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 


6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 


7000 

7100 

7200 

7300 

7400 

7500 

7600 

7700 
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AC 

0020 

A C T 6 3 7 

0033 

BEGIN 

0400 

C N T 10 

0026 

CNTll 

0027 

EXIT 

0134 

HERE 

0210 

IN637 

0200 

INTER 

0100 

I TMP 

0022 

KCNT 

0025 

key 

0230 

KEYACT 

0034 

KEYDON 

0245 

ktemp 

0023 

link 

0021 

OUT 

0271 

RCA 

7725 

RWCNT 

7724 

scso 

6406 

SGGR 

6410 

sgrr 

6404 

SGTT 

6405 

slcc 

6412 

SlFL 

6413 

SRSl 

6415 

SRS2 

6414 

SSBE 

6416 

SSC A 

6411 

SSCD 

6400 

SSRO 

6402 

SSTO 

6403 

SYN 

0226 

TCA 

7 7 30 

tcnt 

0024 

techi 

7720 

TECH2 

7721 

TECH3 

7722 

T £ C H 4 

7723 

tele 

3217 

telei 

0302 

TELE2 

3315 

tqchaR 

2500 

T DP l 

3030 

T3P2 

0031 

T V Y ACT 

0032 

TWCNT 

7727 

type 

0201 


ERRCf-3 DETECTED: 0 


LINKS GENERATED: 0 








